home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 2 / Meeting Pearls Vol. II (1995)(GTI - Schatztruhe)[!].iso / Pearls / dev / Oberon_Interfaces / Interfaces / MathIEEEDoubTrans.mod < prev    next >
Text File  |  1994-03-05  |  2KB  |  60 lines
  1. (*
  2. (*
  3. **  Amiga Oberon Interface Module:
  4. **  $VER: MathIEEEDoubTrans.mod 40.15 (28.12.93) Oberon 3.0
  5. **
  6. **   © 1993 by Fridtjof Siebert
  7. *)
  8. *)
  9.  
  10. MODULE MathIEEEDoubTrans;
  11.  
  12. IMPORT
  13.   e   := Exec,
  14.   I   := Intuition,
  15.   ml *:= MathLibrary;
  16.  
  17. CONST
  18.  
  19.   mathIEEEDoubTransName * = "mathieeedoubtrans.library";
  20.  
  21. VAR
  22.  
  23.   base * : ml.MathIEEEBasePtr;
  24.  
  25. PROCEDURE Atan  * {base,- 30}(x{0}       : LONGREAL): LONGREAL;
  26. PROCEDURE Sin   * {base,- 36}(x{0}       : LONGREAL): LONGREAL;
  27. PROCEDURE Cos   * {base,- 42}(x{0}       : LONGREAL): LONGREAL;
  28. PROCEDURE Tan   * {base,- 48}(x{0}       : LONGREAL): LONGREAL;
  29. PROCEDURE Sincos* {base,- 54}(VAR cos{8} : LONGREAL;
  30.                               x{0}       : LONGREAL): LONGREAL;
  31. PROCEDURE Sinh  * {base,- 60}(x{0}       : LONGREAL): LONGREAL;
  32. PROCEDURE Cosh  * {base,- 66}(x{0}       : LONGREAL): LONGREAL;
  33. PROCEDURE Tanh  * {base,- 72}(x{0}       : LONGREAL): LONGREAL;
  34. PROCEDURE Exp   * {base,- 78}(x{0}       : LONGREAL): LONGREAL;
  35. PROCEDURE Log   * {base,- 84}(x{0}       : LONGREAL): LONGREAL;
  36. PROCEDURE Pow   * {base,- 90}(exp{2}     : LONGREAL;
  37.                               x{0}       : LONGREAL): LONGREAL;
  38. PROCEDURE Sqrt  * {base,- 96}(x{0}       : LONGREAL): LONGREAL;
  39. PROCEDURE Tieee * {base,-102}(x{0}       : LONGREAL): e.SINGLE;
  40. PROCEDURE Fieee * {base,-108}(x{0}       : e.SINGLE): LONGREAL;
  41. PROCEDURE Asin  * {base,-114}(x{0}       : LONGREAL): LONGREAL;
  42. PROCEDURE Acos  * {base,-120}(x{0}       : LONGREAL): LONGREAL;
  43. PROCEDURE Log10 * {base,-126}(x{0}       : LONGREAL): LONGREAL;
  44.  
  45.  
  46. (* $OvflChk- $RangeChk- $StackChk- $NilChk- $ReturnChk- $CaseChk- *)
  47.  
  48. BEGIN
  49.   base := e.OpenLibrary(mathIEEEDoubTransName,34);
  50.   IF base=NIL THEN
  51.     IF I.DisplayAlert(0,"\x00\x64\x14missing mathieeedoubtrans.library\o\o",50) THEN END;
  52.     HALT(20)
  53.   END;
  54.  
  55. CLOSE
  56.   IF base#NIL THEN e.CloseLibrary(base) END;
  57.  
  58. END MathIEEEDoubTrans.
  59.  
  60.